home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / OKKFAN.M4 < prev    next >
Text File  |  1996-04-01  |  4KB  |  150 lines
  1. name Fanuc OKK 4 Axis
  2.  
  3. % 00
  4. / 00
  5. O >4
  6. N >4
  7. G >2
  8. g >2 G
  9. X ->3.>4
  10. Y ->3.>4
  11. Z ->3.>4
  12. z ->3.>4 Z
  13. A ->3.>3 limit -359.999 359.999
  14. I ->3.>4
  15. J ->3.>4
  16. K ->3.>4
  17. Q ->3.>4
  18. R ->3.>4
  19. P >40
  20. F >3.1
  21. H >2
  22. D >2
  23. S >4
  24. M >2
  25. T >2
  26.  
  27. ModalLetters F R                      # List of letters that are modal    
  28.  
  29. ModalGs 0 1 2 3 73 74 76 80 81 82 83 84 85 90 91  # List of g codes that are modal    
  30.  
  31. Sequence#s N 0 1 1                    # Char, freq, incr & start          
  32. First#? N                             # Y or N  'Output 1st sequence no.  
  33. Last#? N                              # Y or N  'Output last sequence no. 
  34.  
  35. HCode X                               # X or X U  'Horizontal char.       
  36. VCode Y                               # Y or Y V  'Vertical char.         
  37. Dcode Z                               # Depth char.                       
  38. FeedCode F                            # Feed rate char.                   
  39.  
  40. Comment ( )                           # Begin End comment char.           
  41.  
  42. Spindle 3 4 5                         # Cw, ccw & stop m codes            
  43. Coolant 8 9 7                         # On, Off & Mist m codes            
  44. DComp 41 42 40                        # Left, Right & Cancel m codes      
  45. LComp 43 49                           # On & Off codes                    
  46.  
  47. Feed G1                             # Linear move                       
  48. Rapid G0                            # Rapid positioning word            
  49. Cw G2                               # Circular move clockwise           
  50. Ccw G3                              # Circular move counter clockwise   
  51.  
  52. Inc/Abs G 91 90                       # Inc & Abs char. & values          
  53.  
  54. Inch/MM 70 71                         # Inch & Metric g codes             
  55.  
  56. Spaces? N                             # Y or N  'Spaces between words     
  57.  
  58. Incremental? Y                        # Y or N  'Inc or abs output        
  59. CtrIncremental? Y                     # Y or N  'Inc or abs I & J         
  60. ByQuadrants? N                        # Y or N  'Break arcs at quadrants  
  61. CtrCode I J                           # I J or R or I J K L               
  62. Helical? N
  63.  
  64. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  65.  
  66. Drill                                 # Drilling canned/manual cycle      
  67. G81 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  68. end cancel
  69.  
  70. Peck                                  # Pecking canned/manual cycle       
  71. G83 X[H] Y[V] Z[D] Q[VBite] R[Vclear] F[FRate]
  72. end cancel
  73.  
  74. Tap                                   # Tapping canned/manual cycle       
  75. G84 X[H] Y[V] Z[D] R[Vclear] F[Frate] Q[VBite]
  76. end cancel
  77.  
  78. LTap                                  # Left handed tapping cycle         
  79. G74 X[H] Y[V] Z[D] R[Vclear] F[Frate] Q[VBite]
  80. end cancel
  81.  
  82. Ream                                  # Reaming canned/manual cycle       
  83. G85 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  84. end cancel
  85.  
  86. Bore                                  # Boring canned/manual cycle        
  87. G86 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  88. end cancel
  89.  
  90. Back                                  # Back boring canned/manual cycle   
  91. G87 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  92. end cancel
  93.  
  94. Cancel                                # Cancel a canned/manual cycle      
  95. G80
  96. end
  97.  
  98. Index X                               # Index the rotary table            
  99. A[Rotangle]
  100. end
  101.  
  102. StartCode                             # Start of the program              
  103. End
  104.  
  105. 1stToolChange                         # First tool change                 
  106. G90 G80 G40 G17
  107. G91
  108. T[Tool]
  109. M6
  110. G0 A[Rotangle]
  111. G0 X[H] Y[V] M[Direct] S[Speed] T[NextTool]
  112. G43 Z[D] H[Lcomp]
  113. M[Cool]
  114. G91
  115. End
  116.  
  117. Infeed                                # Enable cutter comp                
  118. G[Side] X[H] Y[V] D[DComp] F[FRate]
  119. end
  120.  
  121. Outfeed                               # Disable cutter comp               
  122. G1 G40 X[H] Y[V]
  123. end
  124.  
  125. ToolChange                            # Secondary tool changes            
  126. M9
  127. g91 G28 z0
  128. G91 M6
  129. G90 G0 X[H] Y[V] M[Direct] S[Speed] T[NextTool]
  130. G43 Z[D] H[Lcomp]
  131. M[Cool]
  132. G91
  133. End
  134.  
  135. EndCode                               # End of the program                
  136. M9
  137. g91 G28 z0
  138. M30
  139. %0
  140. End
  141.  
  142. LineCode                              # Linear move                       
  143. G1 X[H] Y[V] A[Rotangle]
  144. end
  145.  
  146. RapidCode                             # Rapid move                        
  147. G0 X[H] Y[V] A[Rotangle] Z[D]
  148. end
  149.  
  150.